PC Direkt 1998 #11/PCDIREKT_1198.bin/SHOWDATA/ECKESHOP.DXR/00030_eintragen und optionen.ls

Text File | 1998-03-20 | 5.5 KB | 161 lines

on eintragen
  global AnzahlBestellungen
  set startsprite to 15
  if AnzahlBestellungen = 8 then
    alert("Bitte drucken Sie jetzt Ihr Bestellformular und versuchen Sie es dann erneut.")
    exit
  end if
  set AnzahlBestellungen to AnzahlBestellungen + 1
  repeat with i = 0 to 3
    set x to the memberNum of sprite (startsprite + i)
    set temp to the text of member x
    set the text of member (x + 10) to temp & RETURN & the text of member (x + 10)
  end repeat
  set y to 0.0
  repeat with j = 1 to the number of lines in field "GPreis2"
    if line j of field "GPreis2" = " " then
      exit repeat
    end if
    set y to y + float(value(line j of field "GPreis2"))
    put y
  end repeat
  put chckStr(y) into field "Summe"
end

on kappeeintragen
  global AnzahlBestellungen
  set startsprite to 15
  if AnzahlBestellungen = 8 then
    alert("Bitte drucken Sie jetzt Ihr Bestellformular und versuchen Sie es dann erneut.")
    exit
  end if
  if (the hilite of member "emailOption" = 1) and (the text of member "emailAdresse" = EMPTY) then
    alert("Bitte tragen Sie Ihre eMail-Adresse in das vorgesehene Feld ein!", "OK", 1)
  else
    if (the hilite of member "emailOption" = 0) and (the text of member "emailAdresse" <> EMPTY) and (the text of member "emailAdresse" <> " ") then
      alert("Wenn Sie eine bestickte Kappe wünschen, klicken Sie bitte das Kästchen an.", "OK", 1)
    else
      set AnzahlBestellungen to AnzahlBestellungen + 1
      repeat with i = 0 to 3
        set x to the memberNum of sprite (startsprite + i)
        set temp to the text of member x
        if (i = 1) and the hilite of member "emailOption" then
          set temp to temp & " " & the text of member "emailAdresse" & "@aol.com"
        end if
        set the text of member (x + 10) to temp & RETURN & the text of member (x + 10)
      end repeat
      set y to 0.0
      repeat with j = 1 to the number of lines in field "GPreis2"
        if line j of field "GPreis2" = " " then
          exit repeat
        end if
        set y to y + float(value(line j of field "GPreis2"))
      end repeat
      put chckStr(y) into field "Summe"
    end if
  end if
end

on jackeeintragen
  global AnzahlBestellungen
  set startsprite to 15
  if AnzahlBestellungen = 8 then
    alert("Bitte drucken Sie jetzt Ihr Bestellformular und versuchen Sie es dann erneut.")
    exit
  end if
  if (the hilite of member "sizeS" = 0) and (the hilite of member "sizeM" = 0) and (the hilite of member "sizeL" = 0) and (the hilite of member "sizeXL" = 0) then
    alert("Bitte kreuzen Sie die gewünschte Größe an!", "OK", 1)
  else
    set AnzahlBestellungen to AnzahlBestellungen + 1
    repeat with i = 0 to 3
      set x to the memberNum of sprite (startsprite + i)
      set temp to the text of member x
      if i = 1 then
        if the hilite of member "sizeS" then
          set temp to temp & ", S"
        else
          if the hilite of member "sizeM" then
            set temp to temp & ", M"
          else
            if the hilite of member "sizeL" then
              set temp to temp & ", L"
            else
              if the hilite of member "sizeXL" then
                set temp to temp & ", XL"
              end if
            end if
          end if
        end if
      end if
      set the text of member (x + 10) to temp & RETURN & the text of member (x + 10)
    end repeat
    set y to 0.0
    repeat with j = 1 to the number of lines in field "GPreis2"
      if line j of field "GPreis2" = " " then
        exit repeat
      end if
      set y to y + float(value(line j of field "GPreis2"))
    end repeat
    put chckStr(y) into field "Summe"
  end if
end

on radioSizes
  set nm to the memberNum of sprite the clickOn
  repeat with i = 0 to 4
    set x to the number of member "sizeS" + i
    if x <> nm then
      set the hilite of member x to 0
    end if
  end repeat
  set the hilite of member nm to 1
end

on shirtEintragen
  global AnzahlBestellungen
  set startsprite to 15
  if AnzahlBestellungen = 8 then
    alert("Bitte drucken Sie jetzt Ihr Bestellformular und versuchen Sie es dann erneut.")
    exit
  end if
  if (the hilite of member "sizeS" = 0) and (the hilite of member "sizeM" = 0) and (the hilite of member "sizeL" = 0) and (the hilite of member "sizeXL" = 0) and (the hilite of member "sizeXXL" = 0) then
    alert("Bitte kreuzen Sie die gewünschte Größe an!", "OK", 1)
  else
    set AnzahlBestellungen to AnzahlBestellungen + 1
    repeat with i = 0 to 3
      set x to the memberNum of sprite (startsprite + i)
      set temp to the text of member x
      if i = 1 then
        if the hilite of member "sizeS" then
          set temp to temp & ", S"
        else
          if the hilite of member "sizeM" then
            set temp to temp & ", M"
          else
            if the hilite of member "sizeL" then
              set temp to temp & ", L"
            else
              if the hilite of member "sizeXL" then
                set temp to temp & ", XL"
              else
                if the hilite of member "sizeXXL" then
                  set temp to temp & ", XXL"
                end if
              end if
            end if
          end if
        end if
      end if
      set the text of member (x + 10) to temp & RETURN & the text of member (x + 10)
    end repeat
    set y to 0.0
    repeat with j = 1 to the number of lines in field "GPreis2"
      if line j of field "GPreis2" = " " then
        exit repeat
      end if
      set y to y + float(value(line j of field "GPreis2"))
    end repeat
    put chckStr(y) into field "Summe"
  end if
end